250 PRINT"[147]":POKESC,152:POKE36869,255
255 A=INT(RND(1)*3+1):B=INT(RND(1)*7+1):X=INT(RND(1)*26+5):Y=INT(RND(1)*101+50)
260 IFA=1THEND$="FEET":TT$="SECONDS":V$="F/S"
265 IFA=2THEND$="MILES":TT$="HOURS":V$="MPH"
270 IFA=3THEND$="FEET":TT$="MINUTES":V$="F/M"
280 ONBGOSUB440,470,440,455,470,440,470
285 PRINT:PRINT:PRINT:PRINTTAB(19)"[144][\":PRINTTAB(19)"]("
290 FORN=19TO15STEP-1:PRINTTAB(N)"(":NEXTN
295 PRINTTAB(12)"'''''":PRINTTAB(12)"'''''"
300 PRINT"[156]'''''[158]  %%%%%'''''":PRINT"[156]''''''''''''''''''''''  "
305 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
310 Z=7680+(9*22)+20:C=Z+30720:V=36878:F2=36875
315 INPUT"[144]     ";S$:S=VAL(S$):IFS=KTHEN360
330 POKEV,15:PRINT"  UH UH! SORRY  "
335 FORM=230TO190STEP-1:POKEF2,M:FORT=1TO5:NEXTT:NEXTM
340 Q=5:GOSUB480:POKEV,0:FORN=1TO4:POKEZ,32:POKEZ+21,32:POKEZ+22,32:POKEZ+23,32
345 POKEZ+22,30:POKEC+22,0:POKEZ+43,35:POKEC+43,0:POKEZ+44,31:POKEC+44,0
350 POKEZ+45,36:POKEC+45,0:Z=Z+22:C=C+22:NEXTN
354 FORN=0TO4:POKEZ+20+N,38:POKEC+20+N,7:NEXTN
355 POKE36877,210:FORL=15TO0STEP-1:POKEV,L:FORM=1TO50:NEXTM:NEXTL:PP=1
356 POKE36877,0:POKEV,0:GOTO400
360 POKEV,15:PRINT" YEP! THATS RIGHT ":FORM=190TO230:POKEF2,M:FORT=1TO5:NEXTT:NEXTM
362 Q=10:GOSUB480:POKEV,0:FORN=1TO3:POKEZ,32:POKEZ+21,32:POKEZ+22,32:POKEZ+23,32
364 POKEZ+21,30:POKEC+21,0:POKEZ+42,35:POKEC+42,0:POKEZ+43,31:POKEC+43,0
366 POKEZ+44,36:POKEC+44,0:Z=Z+21:C=C+21:NEXTN
368 POKEV,15:FORL=148TO220STEP.7:POKEF2,L:NEXTL:POKEV,0:FORT=1TO500:NEXTT:PP=2
400 PRINT"[147]":POKESC,184
405 IFPP=1THENPRINTSPC(134)"YOU LOST THIS TIME"
407 IFPP=1THENPRINTSPC(49)"BETTER LUCK            NEXT TIME"
410 IFPP=2THENPRINTSPC(158)"YOU SOLVED THE        GIVEN  PROBLEM"
412 FORT2=1TO5000:NEXT
415 D=5:GOTO250
440 K=INT(Y/X)
441 PRINTSPC(24)"[144]A SKIER WENT ";Y:PRINT"  ";D$
442 PRINT"[144]  IN ";X;"";TT$
445 PRINT"[144]  WHAT WAS HIS":PRINT"[144]  VELOCITY IN ";V$:RETURN
455 K=X*Y:PRINTSPC(24)"[144]A SKIER WENT ";X:PRINT"  ";V$:PRINT"[144]  FOR ";Y"";TT$
460 PRINT"[144]  WHAT WAS HIS":PRINT"[144]  DISTANCE IN ";"";D$:RETURN
470 K=INT(Y/X)
471 PRINTSPC(24)"[144]A SKIER WENT ";Y:PRINT"  ";D$
472 PRINT"[144]  AT ";X;"";V$
475 PRINT"[144]  HOW MUCH TIME DID":PRINT"[144]  HE SKI IN ";TT$:RETURN
480 FORN=1TO5:POKEZ,32:POKEZ+1,32:POKEZ+22,32:POKEZ+21,27:POKEC+21,0
482 POKEZ+22,28:POKEC+22,0:POKEZ+43,29:POKEC+43,0:Z=Z+21:C=C+21:NEXTN
484 POKEV,0:Z=Z-21:POKEZ,32:POKEZ+1,32:POKEZ+22,32
486 Z=7680+(14*22)+14:C=Z+30720:POKEZ+1,32
488 FORN=1TOQ:POKEZ,32:POKEZ+21,32:POKEZ+22,32:POKEZ+23,32
490 POKEZ-1,30:POKEC-1,0:POKEZ+20,35:POKEC+20,0:POKEZ+21,31:POKEC+21,0
492 POKEZ+22,36:POKEC+22,0:Z=Z-1:C=C-1:NEXTN:RETURN